home *** CD-ROM | disk | FTP | other *** search
/ Imekura ROM / Imekura ROM.iso / mac / Mac / RESLUT.DIR / 00011.ls < prev    next >
Encoding:
Text File  |  1995-07-11  |  208 b   |  11 lines
  1. on roomselect
  2.   global groomcntlist, groomno
  3.   set groomno to getOne(groomcntlist, max(groomcntlist))
  4.   pictset(2, "S" & groomno, 1, 0, 320, 360)
  5. end
  6.  
  7. on roomgo
  8.   global groomno
  9.   go(1, "ROOM" & groomno)
  10. end
  11.